home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed44a.d64 / add 1 to 3 t (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  171 lines
  1. 50 RESTORE:POKE53280,0:POKE53281,0:POKE53272,23:X=1:Y=1:K=0:W=0:C=0:R=0
  2. 100 PRINT"[147][155]            [215][200][195][160][197]NTERPRISES            ":GOSUB290:GOSUB240
  3. 105 PRINT"[159]                                        [146]";
  4. 110 PRINT"                                        [146]";
  5. 115 PRINT"          [200][197][204][197][206]'[211]  [194][193][211][201][195] [205][193][212][200]           [146]";
  6. 120 PRINT"[159]                                        [146]";:GOSUB291:GOSUB240
  7. 125 PRINT"           [193][196][196][201][212][201][207][206] [212][197][211][212] 1              [146]";
  8. 130 PRINT"[159]                  WITH                  [146]";
  9. 135 PRINT"          NUMBERS FROM 1 TO 3           [146]";
  10. 140 PRINT"[159]                                        [146]";
  11. 145 PRINT"                                        [146]":GOSUB291:GOSUB240
  12. 150 PRINT"[154]         [201]NSTRUCTIONS?  [217]/[206]     [151][212][159]"
  13. 152 GETR$:IFR$<>"Y"ANDR$<>"[217]"ANDR$<>"N"ANDR$<>"[206]"ANDR$<>"T"ANDR$<>"[212]"THEN152
  14. 154 IFR$="T"THENGOSUB700
  15. 155 IFR$="[212]"THENGOSUB700
  16. 156 IFR$="N"THEN180
  17. 157 IFR$="[206]"THEN180
  18. 160 PRINT"[147][153] [201]N THIS UNIT WE [212][197][211][212] ADDITION SKILLS
  19. 162 [153]" WITH NUMBERS FROM 0PRINT TO 3PRINT.
  20. 164 PRINT" [217]OU HAVE ONLY [207][206][197] CHANCE TO ANSWER      EACH QUESTION
  21. 166 [153]" RIGHT$F YOU MISS IT, THAT'S A DEFPEEK(null)(null)(null)(null)VAL(null)PRINT.
  22. 168 PRINT" [217]OU WILL BE PLAYING AGAINST THE CLOCK   SO DON'T WASTE ANY TIME."
  23. 170 GOSUB292:GOSUB460
  24. 180 PRINT"[153][147] [215]HAT IS YOUR NAME?":GOSUB260
  25. 182 INPUT N$
  26. 184 PRINT"[147] [193]ND AWAY WE GO, "N$
  27. 186 GOSUB291:GOSUB200:GOSUB290
  28. 190 PRINT"[147]":GOSUB291
  29. 199 TI$="000000":GOTO500
  30. 200 REM <YES> SOUND
  31. 202 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  32. 204 POKE54296,15:POKE54277,42:POKE54278,250
  33. 206 POKE54276,23:POKE54273,23:POKE54272,191
  34. 208 FORTM=1TO150:NEXT:POKE54276,32:FORTM=1TO250:NEXT
  35. 210 POKE54296,0:RETURN
  36. 220 REM <NO> SOUND
  37. 222 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  38. 224 POKE54296,15:POKE54277,18:POKE54278,242
  39. 226 POKE54276,33:POKE54273,4:POKE54272,48
  40. 228 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  41. 230 POKE54296,0:RETURN
  42. 240 REM <BLIP> SOUND
  43. 242 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  44. 244 POKE54296,6:POKE54277,42:POKE54278,250
  45. 246 POKE54276,23:POKE54273,23:POKE54272,191
  46. 248 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  47. 250 POKE54296,0:RETURN
  48. 260 REM <DING> SOUND
  49. 262 SS=54272:POKE54296,15:POKESS,50:POKESS+1,35:POKESS+2,0:POKESS+3,8:POKESS+5,0
  50. 264 POKESS+6,10*16+9:POKESS+4,14:POKESS+4,65:FORQQ=1TO20:POKESS+4,64
  51. 266 RETURN
  52. 270 REM <VERY WRONG> SOUND
  53. 272 SS=54272:POKE54296,15:POKESS,32:POKESS+1,3:POKESS+2,128:POKESS+3,13
  54. 274 POKESS+5,4*16+0:POKESS+6,10*16+8
  55. 276 POKESS+24,15:POKESS+4,65:FORQQ=1TO500:NEXT:POKESS+4,64:RETURN
  56. 290 FORTM=1TO600:NEXT:RETURN
  57. 291 FORTM=1TO1000:NEXT:RETURN
  58. 292 FORTM=1TO2000:NEXT:RETURN
  59. 293 FORTM=1TO3000:NEXT:RETURN
  60. 299 :
  61. 300 PRINT"[147]":GOSUB290
  62. 302 PRINT"[155] [193]DD 1-3 [212][156]"TAB(13)""N$TAB(32)"[155][211]TEP:"Y
  63. 305 RETURN
  64. 310 PRINT"[159]            ";A$"+[159]";B$"="Z$
  65. 350 REM TIMER
  66. 355 N=TI/60
  67. 360 N=INT(N+.5)
  68. 365 PRINT"[154]";N"SECONDS[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  69. 370 RETURN
  70. 400 REM CORRECT
  71. 402 PRINT"[153]                   [217][197][211]                  [146]":GOSUB200:GOSUB292
  72. 404 PRINT"[145][145]                                        "
  73. 410 RETURN
  74. 420 POKE53280,2:GOSUB220:GOSUB291
  75. 423 PRINT"[150]                   [206][207]!                  [146]":GOSUB292
  76. 425 PRINT"[145][145]                                        [145][145]"
  77. 440 PRINT"[147]":GOSUB290:POKE53280,13
  78. 445 PRINT"      >>>>>[160][160] [153]";A$" + [153]";B$" =[153] ";C$"   <<<<<"
  79. 450 GOSUB260:GOSUB293:GOSUB460:POKE53280,0:RETURN
  80. 460 GOSUB291:GOSUB260
  81. 462 PRINT"[154]      >>>>>    [211][208][193][195][197][160][194][193][210]    <<<<<       [146]"
  82. 464 GETR$:IFR$<>CHR$(32)THEN464
  83. 466 PRINT"[145][145]                                        ":RETURN
  84. 500 FORG=1TO25
  85. 505 GOSUB300:GOSUB350: Y=Y+1:P=0:POKE53280,0
  86. 510 READA$,B$,C$
  87. 520 PRINT"               ";A$" + ";B$" = ":GOSUB260
  88. 530 PRINT"[158][145] ";:INPUTZ$
  89. 540 IFZ$=C$THENGOSUB400:C=C+1:GOTO550
  90. 545 GOSUB420:W=W+1:
  91. 550 NEXT G
  92. 599 :
  93. 600 PRINT"[147]       [193][196][196] 1-3 [212]    [211][195][207][210][197][160][194][207][193][210][196]         [146]":GOSUB291
  94. 602 PRINT"          [156]"N$"[155]"
  95. 605 L=C*4:L=INT(L+.5)
  96. 610 PRINT"[158]          [217]OUR [211][195][207][210][197] ...";L"%":GOSUB260:GOSUB293
  97. 613 PRINT"[158]          [217]OUR TIME ...."N"SECONDS":GOSUB260:GOSUB293
  98. 615 PRINT"[153]          [195]ORRECT ......"C:GOSUB200:GOSUB292
  99. 620 PRINT"[150]          [194]LOOPERS ....."W:GOSUB270:GOSUB292
  100. 622 IF N=<160THENPRINT"          [217]OU WERE [198][193][211][212]":GOSUB260:GOSUB292:GOTO625
  101. 623 IFN=<250THENPRINT"[158]          [195]AN YOU GO FASTER?":GOSUB260:GOSUB292:GOTO625
  102. 624 PRINT"[158]          [201]'M SURE YOU CAN GO FASTER.":GOTO625
  103. 625 IFC=25THENPRINT"             [197][216][195][197][204][204][197][206][212] [215][207][210][203]!            [146]"
  104. 630 IFC=25THENGOSUB200:GOSUB292:GOTO660
  105. 635 IFC=>22THENPRINT"              [199]OOD [215]ORK               "
  106. 640 IFC=>22THENGOSUB200:GOSUB292:GOTO660
  107. 650 GOSUB292:PRINT" >>>>> [217]OU NEED MORE PRACTICE.":GOSUB292
  108. 655 PRINT" >>>>> [208]LEASE PLAY THIS GAME AGAIN."
  109. 660 GOSUB460
  110. 670 PRINT"[158][147]  [217]OU HAVE A CHOICE:                    ":GOSUB292
  111. 672 PRINT"  [208]RESS  [210] [146] TO REPEAT [193][196][196] 1 TO 3 [212]
  112. 673 [153]"  (null)RESS  CHR$ WAIT TO GO TO THE NEXT GAME
  113. 674 PRINT"  [208]RESS  [205] [146] TO RETURN TO DISK MENU,
  114. 676 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[175]R$[179][177]"CHR$"[175]R$[179][177]"G"[167]676
  115. 678 [139]R$[178]"R"[167] [140]:Y[178]1:[137]500
  116. 679 [139]R$[178]"(null)"[167] [140]:Y[178]1:[137]500
  117. 680 [139]R$[178]"G"[167] [140]:[137]800
  118. 681 [139]R$[178]"CHR$"[167] [140]:[137]800
  119. 682 [153]"LOAD (null)ETURNING TO THE DISK MENU
  120. 684 LOAD"MENU",8
  121. 686 RUN
  122. 688 END
  123. 699 :
  124. 700 PRINT"[147][159]         [212][197][193][195][200][197][210][160][201][206][198][207][210][205][193][212][201][207][206]
  125. 702 [153]" (null)HIS IS THE FIRST OF A SET OF ADDITION
  126. 704 PRINT" EXERCISES DESIGNED SPECIFICALLY FOR
  127. 706 [153]" CHILDREN CLASSED AS 'INTELLECTUALLY     CHALLENGED'.
  128. 710 PRINT" [197]ACH PAIR OF EXERCIES USES A SET
  129. 712 [153]" RANGE OF NUMBERS.
  130. 714 PRINT" [212]HE FIRST EXERCISE ([208]) IN A PAIR
  131. 716 [153]" PROVIVDES A MEASURED (null)(null)ATNLEN(null)RIGHT$LENVAL.
  132. 718 PRINT" [212]HE SECOND EXERCISE ([212]) PROVIDES A      TIMED AND MEASURED [212][197][211][212].
  133. 720 [153]" (null)HIS IS THE (null)VAL(null)(null) EXERCISE
  134. 722 GOSUB460
  135. 730 PRINT"[147][159] [210]OLISON'S '[212][210][201][193][196] PRICIPLE' IS USED
  136. 740 [153]" TO SELECT THE NUMBER COMBINATIONS..
  137. 750 PRINT" [201]T WOULD BE A GOOD IDEA TO RECORD
  138. 755 [153]" THE CHILD'S PERFOMANCE ON EACH UNIT."
  139. 760 [141]460:[137]50
  140. 800 [153]"LOAD CHR$OING TO  ATNSTR$STR$ 2 TO 4  P WAIT"
  141. 805 [153]"LOADSTOPLOAD"[199](34)"ADD 2 TO 4  P"[199](34)",8:"
  142. 810 [151]198,0:[151]631,19:[151]632,131:[151]198,2
  143. 815 [128]
  144. 1000 [131] "1","1","2"
  145. 1005 [131] "1","0","1"
  146. 1010 [131] "2","1","3"
  147. 1015 [131] "3","0","3"
  148. 1020 [131] "1","2","3"
  149. 1025 [131] "2","2","4"
  150. 1030 [131] "2","3","5"
  151. 1035 [131] "3","2","5"
  152. 1040 [131] "3","3","6"
  153. 1045 [131] "1","1","2"
  154. 1050 [131] "1","2","3"
  155. 1055 [131] "1","3","4"
  156. 1060 [131] "2","3","5"
  157. 1065 [131] "0","3","3"
  158. 1070 [131] "3","1","4"
  159. 1075 [131] "2","3","5"
  160. 1080 [131] "3","3","6"
  161. 1085 [131] "1","3","4"
  162. 1090 [131] "2","2","4"
  163. 1095 [131] "2","3","5"
  164. 1100 [131] "2","1","3"
  165. 1105 [131] "3","1","4"
  166. 1110 [131] "2","3","5"
  167. 1115 [131] "2","1","3"
  168. 1120 [131] "3","3","6"
  169. 2000 [143] WHC 93 03 01<>93 07 05
  170. 2001 [143] DEDICATED TO HELEN HORN 1993
  171.